home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / basic stp (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  314b  |  11 lines
  1. 63990 poke828,169:poke829,0:poke830,76
  2. 63991 poke831,49:poke832,243:close4
  3. 63992 input"filename";f$:open4,8,4,f$:get#4,a$,a$:poke829,1:a$=""
  4. 63993 print"[147]poke812,60:poke813,3":ifa$>""then63995
  5. 63994 get#4,a$
  6. 63995 printa$;:ifa$<>chr$(13)then63994
  7. 63996 get#4,a$:a=0:ifst=0thena=asc(a$+chr$(0))
  8. 63997 print"a$=chr$("a"):goto63993
  9. 63998 [139]st[167][151]829,0:[160]4:[144]
  10. 63999 [151]198,3:[151]631,13:[151]632,13:[151]633,13:[153]"":[128]
  11.